Attribute VB_Name = "Constants"
'Api's and other constants go here
'Api's first
Public Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

'Then general types
Public Type hashtble
    key As String * 100
    data As String * 100
End Type


'Then constants
Public Const PLAYER_LOGIN_USN = 0
Public Const PLAYER_LOGIN_PAS = 2
Public Const PLAYER_LOGGEDIN = 4
Public Const PLAYER_ATK = 8
Public Const Welcomemsg = "MSG Welcome to Heroes of saragone." & vbCrLf & "MSG Please login" & vbCrLf
Public Const COM_STR = "|MOVE|LGN|LOOK|QUIT|" 'The accepted command string
Public Const HASH_PSWD = True
Public Const Max_Players = 10
Public Const QUITMSG = "Come back next time!"
